home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DATATYPE.SWG
/
0012_VARARRAY.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
834b
|
37 lines
{
> I'm trying to figure out a way to declair a Variable, such as an
> Array, and I don't know the size Until I've loaded the Program.
> I've tried stuff like........
>
> Type
> Buf : Array[1..1000] of Char;
> Var
> Buffer : ^Buf
> begin
> Getmem(Buffer,xxx)
Here's how:
}
{$R-} { <-- essential For this trick }
Type
tFlexArray = Array[1..1] of Integer;
Var
pFlexArray : ^tFlexArray;
NumofElements,i : Integer;
begin
Write('How many elements do you want in the Array? ');
readln(NumofElements);
getmem(pFlexArray, (NumofElements * sizeof(Integer)));
For i := 1 to NumofElements do
pFlexArray^[i] := i;
Write('Test which element? (Will contain same value as index) ');
readln(i);
Writeln('Element ',i,' contains ',pFlexArray^[i]);
end.